From: Eric S. Raymond <esr@snark.thyrsus.com>
Date: Sat, 3 Apr 1993 23:28:03 +0000 (+0000)
Subject: Added or corrected documentation headers
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96603
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=0cbe967f856c2057ebfbf4a2c14fe19ce3f71746;p=emacs.git

Added or corrected documentation headers
---

diff --git a/lisp/finder.el b/lisp/finder.el
index 5be96e85b21..ce3b858c009 100644
--- a/lisp/finder.el
+++ b/lisp/finder.el
@@ -86,7 +86,9 @@ arguments compiles from `load-path'."
       (erase-buffer)
       (insert ";;; finder-inf.el --- keyword-to-package mapping\n")
       (insert ";; Keywords: help\n")
-      (insert ";;; Don't edit this file.  It's generated by finder.el\n\n")
+      (insert ";;; Commentary:\n")
+      (insert ";; Don't edit this file.  It's generated by finder.el\n\n")
+      (insert ";;; Code:\n")
       (insert "\n(setq finder-package-info '(\n")
       (mapcar
        (function
@@ -119,7 +121,7 @@ arguments compiles from `load-path'."
 	   (directory-files (or d ".")))
 	  ))
        (or dirs load-path))
-      (insert "))\n\n(provide 'finder-inf)\n")
+      (insert "))\n\n(provide 'finder-inf)\n\n;;; finder-inf.el ends here\n")
       (kill-buffer "*finder-scratch*")
       (eval-current-buffer) ;; So we get the new keyword list immediately
       (basic-save-buffer)